home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / twview91.zip / NOTESTUF.INC < prev    next >
Text File  |  1992-03-11  |  1KB  |  54 lines
  1. procedure AddNote( var BaseChanged : boolean );
  2. var s : SectorIndex;
  3.     n : NoteIndex;
  4. begin
  5.   write('Add note for ');
  6.   s := GetSector;
  7.   if s = 0 then
  8.     exit;
  9.   n := noteNumber( s );
  10.   if (n=0) and (space.notes.top = MaxNote) then
  11.     begin
  12.       writeln('Sorry, notes full.  You must delete a note first');
  13.       exit;
  14.     end; {if}
  15.   BaseChanged := true;
  16.   if n = 0 then
  17.     begin
  18.       space.notes.top := space.notes.top + 1;
  19.       n := space.notes.top;
  20.     end; {if}
  21.   with space.notes.data[ n ] do
  22.     repeat
  23.       reference := s;
  24.       write('Note: ');
  25.       readln( info );
  26.       writeln('Sector ',reference : 5, ' ', info );
  27.     until prompt('Is this okay? ');
  28.   space.sectors[s].etc := space.sectors[s].etc or NoteExists;
  29. end; {Add Note}
  30.  
  31. procedure RemoveNote( var BaseChanged : boolean);
  32. var 
  33.   s : sectorIndex;
  34.   n : NoteIndex;
  35. begin
  36.   write('Remove note for ');
  37.   s := GetSector;
  38.   if s = 0 then exit;
  39.   n := NoteNumber( s );
  40.   if n = 0 then
  41.     writeln('no note for sector ', s, ' was found!')
  42.   else
  43.     begin
  44.       writeln('Current note: ', space.notes.data[n].info );
  45.       if prompt('Remove it? ') then
  46.         begin
  47.           space.notes.data[n] := space.notes.data[ space.notes.top ];
  48.           space.notes.top := space.notes.top - 1;
  49.           space.sectors[s].etc := space.sectors[s].etc and ( not NoteExists);
  50.           BaseChanged := true;
  51.         end; {if}
  52.     end; {else}
  53. end; {RemoveNote}
  54.